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-TITLE MTHSOLOG $ f Lost'ing Point Natural and Common 
; Logarithm Functions (DLOG DLOGI9) 
; - IDENT /2-003/ : File: MTHDLOG.MAR Edit: PDG200 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oRPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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s FACILITY: MATH LIBRARY 
; ABSTRACT: 


; MTHSDLOG and MTH$DLOG10 are functions which return the double precision 
; floating point natural or common logarithm of their double precision 
; seat ee t argument. The call is standard call-by-reference. 

8 and MTH$DLOG10_R8 are special routines which are the same 
; as MTHSDCOG and MTHS$DLOG10 except a faster non-standard JSB call is 
; used with the argument in RO and no registers are saved. 


; MTHSDLO 


VERSION: 01 
HISTORY: 
; AUTHOR: 
Peter Yuo, 15-Oct-76: Version 01 
MODIFIED BY: 
; 01-1 Peter Yuo, 22-May-77 
; VERSION: 02 
; HISTORY: 


AUTHOR: 
Bob Hanek, 18-Jun-81: Version 02 
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HISTORY Detailed Current fase History aoe 7 or 35: 8 ERTHRIL. SR SRE oATH NDLOG MAR: 1 _ 


6] -SBTTL HISTORY ; Detailed Current Edit History 


ALGORITHMIC DIFFERENCE FROM FP=11C ROUTINE: 
1. Uses POLYD so greater accuracy. 


Edit sai for Version 01 of MTHSDLOGDLOG10 


01-2 ¢0 1977 
nul t plication of * EXPONENT (X) by |n(2) is done after POLY instead of 
bef . - $8, gre ts less register is used. 
01-4 bey P. Yuo 
Cod saving after code review 
01-6 RTHESERROR chengee % to TMTHSSSIGNAL. 
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0 
0 75 THS_... change 
0 Changed error oh mechanism. Put error result in RO:R1 before 
0000 7 calling MTHS$SIGNAL in order to allow user modify error result. 
0000 78 §1-8 Add Rich Lary’s code bums for speed... JMT 26-Jan-78 
0000 79 1-9. Move .ENTRY mask Cot saieies soquse header. TNH \enhuan te 
0000 80 ; 1-010 - yptere version number and rigne notice. JBS_16-NO 
8 4 81 3 ~ cnenge, | Pon othe SECT dir nT oe eee 0233 07-DEC-78 
- - irective. 

0000 es 12013 ~ agg gdaanee explai wins code trickery. Sor OTe eb-1979 
0000 4 ; 1-014 = Declare externals. SBL 17-May-1979 
$333 

00 7 ; Edit History for Version 02 of MTHSDLOGDLOG10 


So 
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; $-00) = Add MTH$DLOG2. RNH 08-Aug-1981 

; 2-002 = Correct entr af ais ver 3 38 entries. Use G* addressing for 

; externals. gg ob 

; 2-003 - Change D_FHI ts the mb symbol MTH$$AB_D_FHI. PDG 3-Nov-81 
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-SBTTL DECLARATIONS : Declarative Part of Module 


: INCLUDE FILES: MTHJACKET.MAR 


EXTERNAL SYMBOLS: 


33 
‘ 
1 
101 
3 108 
104 -DSABL GBL 
00 105 -EXTRN MTHSK_LOGZERNEG 
8 196 -EXTRN MTHSSSIGNAL 
1 -EXTRN MTHSSAB_ALOG 
ate 
33 110 ; EQUATED SYMBOLS: 
O00041FC st 1g ACMASK = “M<IV, R2, R3, R4, RS, RE, -- hoy : 4 ty - 
sf r 
00004080 9000 114 $0.1 : “F1.0 3 short floating literal 1.0 
0000 116; 
44 at 4 3 MACROS: none 
9000 119 ; PSECT DECLARATIONS: 
00000000 = 121 -PSECT _MTHSCODE PIC,SHR,LONG, EXE ,NOWRT 
43 ! ; y 3; program section for math routines 
4444 : : ; OWN STORAGE: none 
0000 1 $ ; CONSTANTS: 
44 1 
$331 
$000 130 ; The D_FHI table is accessed by an index obtained from the MTHS$AB_ALOG 
0000 131; table.” The MTHSSAB_ALOG table is located in MTHALOG.MAR. Indices 
0000 1 ; ; between 0 and 15 inclusive are used to access entries 0 through 1 
000 133; respectively. For these indecies, the first three items of the 
44 134 ; forroepending entry are FHI, LN_FHI_LO and LN_FHI_HI . The Last two 
100 135 ; items for these entries. are not used. Indices between 14 and 27 
00 1 $ : inclusive access entries 13 through 0 respectively. For these indecies, 
0 137 ; = the last three items in the corresponding entry are LN_FHI_HI, LN_FHI_LO 
: § : and FHI. The first two items for these entries are not used. 
140 * 
141 MTHSSAB_D_FHI:: 
156 3 Entry” 0 
4F904 4 14 -QUAD *x000000004F 904 gD ; 193773 3390937 a 1 
C1 3 E Bs D339C 144 -QUAD “Xx oo ERS D339C 2 ot $e 9 48 055€-07 
3 ANS4OIE 1 145 -QUAD *X ADS4OIE z .617340354359 o sh 9 
10671 Fi 2339C 1 146 -QUAD “X81 ah ee 2339C 3 1963] 338? 1 $9 E- 
49ESO0A 16 a “QUAD “x00 9ESO0A : .53937709351512451E+00 
Q Ipascoct 129° €°*Y Quad =x909000001 4340ct :_-161808049678802496 +01 
D2E5B7A 0371 40F 150 -QUAD “Xx p f B ADs 184 F 77.334 + 8 BRE oho 
6 76 652B5FF6 151 -QUAD “X6 B76652B5FF6 ; -48124060168191818E +00 
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: Entry i2 
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: Polynomial 


;+ The o Fe in the constants is used to shift the unbiased exponent 
places so that the rightmost bit is at bit 0. 
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B41 
Bite o073e41 
“x00 Bee 
“XA 
“XA 
aes 
= 10000000 


. 9500088 - . ~ 


808 87 
“1981 H rte y 
“x000000006E 2A4077 


constants tables 


LOGTAB1: 
-QUAD “X1E51D 5260086 CD 
-QUAD “X44C1F BDOEGE EE4 
.QUA “X9B9BE C78F F DBBEFF 
.QUAD = Me8R¢ A4649143F 12 
. QUAD c Aogl F2A 
-QUAD “XC92ZCCEBDCCCC3F4C 
.QUA XDCESFFFFFFF 
-QUAD “XAOASAAAAAAAA3FAA 
-QUAD “*X x900000000000¢000 
QUAD ants 0000000000000 

LOGLEN1 = .-LOGTAB1/ 

LOGTAB2: 
QUAD “Xx 8B900ED70B2 
WAR ESSBPUDGDDONEEEE 
eQUAD %*X185BC1CE49243F92 
- QUAD sleep cceeccee FCC 
.QUAD “XA AAAAAAASO2A 
QUA D sy ; 000000004100 

LOGLEN2 = .-LOGTAB 

i right 

D_LN_2_HI: 
-QUAD °*X7200F7B8172173CB1 
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8 D_LN 0: 
BECEAF27 75€62B81 : 5 ne UND “XBECEAF2775E62B81 ; (Low © ts of in2)/128 
580 Ha ¢ § - “WORD 9037736. .005578 
a9 ¢ WORD  *0124467.°0024616 

c 71 D_INV_LN2_CONS: ral log to log base 2 
D 
D 
D 


' convert na 
17F1295C AA3B40B8 ? “BOUBLE 1.4426950608889634073599846810018901$76266 
? 
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77 -SBTTL MTHSDLOG = Standard Double Precision Floating DLOG 


; FUNCTIONAL DESCRIPTION: 

; DLOG = single precision floating point function 

; DLOG(X) jis computed using the following approximation technique: 
If X =< 0, error. Otherwise 

Let X = f * (2*#n), where 1/2 <= f < 1 


If n is ¢ry than or equal to 1 than 
set N=n- 1 and F = 2*f. 


set N =n and F = f. 
Then Ln(x) = Neln2 + Ln(F) 


If {fF = 1: < 2e*-5 then 
in(F) = W + WeP(W), where W= F - 1 and P 
is a polynomial of degree 8. 


s 
in(F) = Ln(FHI) + 2*#0(Z2*2), where FHI is ob- 
tained by table hogh=uP Qisa fo} yeentet of 
degree 5 and Z = (F = FHI)/(F + FHI 


NOTE: The quantities Ln(FHI) and Ln2 are used in the above 
equat tons in two parts - a high part (containing the 

h qr order bits) and a low part (containing the low 
order bits. In the code the high and low parts of the 
constants are indicated by a _HI and LO suffix respec- 
tively. The values were chosén such Ehat N*LN_2_HI + 
LN_FHI_HI is exactly representable. 


\~s~- 4-4-4444 4-44-44 4 4 4 4 4 A ee 
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CALLING SEQUENCE: 
Logarithm.wd.v = MTHS$DLOG(x.rd.r) 
INPUT PARAMETERS: 


00000004 LONG = 4 3; define Longuorg multiplier 
00000004 x = 1 * LONG ; Contents of x is the argument 
IMPLICIT INPUTS: none 


OUTPUT PARAMETERS: 

VALUE: double precision floating logarithm of the argument 
IMPLICIT OUTPUTS: none 
COMPLETION CODES: none 
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; SIDE EFFECTS: 


Signals: MTH$_LOGZERNEG if ‘xX! =< 0.0 with reserved operand in RO/R1 

; (copied to the signal mechanism vector CHF$L_MCH_RO/R oY LIBSSIGNAL). 

; Associated message is: ‘‘LOGARITHM OF ZERO OR NEGATIVE VALUE'’. Result is 

; feserves © grand -0.0 unless a user supplied (or any) error handler changes 


NOTE: This procedure disables floating point underflow, enables integer 
overflow, causes no floating overflow or other arithmetic traps, and 
preserves enables across the call. 


Page 


vo 
-o 
=~ 


41FC -ENTRY MTHSDLOG, ACMASK ; standard call-by-reference entry 
3 aed DV (and FU), enable IV 
a 


MTHSFLAG_JACKET 5 g that this is a jacket procedure 
MOVAB G*MTHSSJACKET_HND, (FP) 


—OOONOUS WN OOOnou 


VINE BELL LLL EE 


6D O0000000'GF 9E 
3; set handler address to jacket 
3; handler 


in case of an error in special JSB 
routine 

RO/R1 = arg 

call special DLOG rountine 

return - result in RO 


MOVD ax(AP), RO 


50 04 BC 
34 BSBB MTHSDLOG_R8 
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: SIDE EFFECTS: See description of MTH$DLOG 


41FC eENTRY MTHSDLOG10, ACMASK 3 standard call-by-reference entry 
; creees DV (and FU), enable IV 
3a 


MTHSFLAG_ JACKET 3 g that this is a jacket procedure 


tin n 
061 Standard Single Precision F 6=SEP-1984 MTHRTL.SRCIMTHDLOG.MAR; 1 
: és -SBTTL MTHSDLOG1IO = Standard Single Precision Floating Common log 
E 3+4 

: 6 : FUNCTIONAL DESCRIPTION: 

4 rt: ; DLOG1IO = single precision floating point function 

E 66 : 

E 67 ; 

: rt: : See description of MTHS$DLOG 

E 29 : CALLING SEQUENCE: 

EO re : logarithm_base_10.wd.v = MTHSDLOG10(x.rd.r) 

EO rh : INPUT PARAMETERS: 

00000004 EO 6 LONG = 4 3; define Longuorg multiplier 
00000004 3 aA x = 1 * LONG ; Contents of x is the argument 

EO 79 

EO 80 

EO 81 

EO +f 

EO 8 

EO 84 

E 85 

386 
387 


6D O0000000'GF 9 MOVAB G*MTHSSJACKET_HND, (FP) 


pet handler address to jacket 


CGQOCOCOCOOSOOCOCOSOSOOSOOOO OOOO OOOOOCOOCOOOOOOOOOOOOoOO 


2E 
43 
E 
2E 
E9 
3 andler 
2—9 «=: 4388 : in case of an error in special JSB 
2E9 86389 3 routine 
50 04 BC 70 334 90 MOVD ax(AP), RO ; RO/R1 = arg 
15 10 O2ED 391 BSBB =: MTH$DLOG10_R8 : call special DLOG10 routine 
04 srr 335 RET 3; return - result in RO 


| 
DLOGIO(X) is computed as DLOGIO(E) * DLOG(X). 
| 
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FUNCTIONAL DESCRIPTION: 

DLOG2 = double precision floating point function 

DLOG2(X) is computed as DLOG2(E) * DLOG(X). 

See description of MTHSDLOG 

CALLING SEQUENCE: 

Logarithm_base_2.wd.v = MTHS$DLOG2(x.rd.r) | 

INPUT PARAMETERS: | 
| 
i 


00000004 LONG = 4 3; define ners multiplier 
00000004 x = 1 * LONG ; Contents of x is the argument 
> SIDE EFFECTS: See description of MTHSDLOG 
41FC -ENTRY MTHS$DLOG2, ACMASK 3 ndard call-by-reference entry 


sta 
; disable DV (and FU), enable IV 
MTHSFLAG_JACKET ; flag that this is a jacket procedure 


6D O0000000'GF 9E MOVAB G“MTHSSJACKET_HND, (FP) 


3; set handler address to jacket 
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; handler | 
rtf ; in case of an error in special JSB 
425 3; routine 
426 MOVD ax(AP), RO ; RO/R1 = arg 
427 BSBB MTHSDLOG_R8 ; JSB to natural log 
428 MULD2 D_INV_LNZ_CONS, RO ; convert to base 2 
£$3 RET 3; return - result in RO | 


wef 


hs 8 
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-SBTTL MTHSDLOGDLOGIO_R8 = Special DLOG/DLOG10 routines 
Special DLOG/DLOG10 - used by the standard routine, and directly. 


CALLING SEQUENCE: 
pove anything needed in RO:R9 


R 
JSB mTHS$DL0G10_ RB /MTHSDLOG_ ke 
return with result RO/R1 
Note: This routine is aobvaen to avoid causing ony ony overflows. 
floating overflows, or floating underflows or divide by 0 conditions, 

whether enabled or not. 


REGISTERS USED: 
RO/R1 = Double floating argument then result 
R2/R - scratch 


OLYD 
R6/R? - W during POLYD 
R8 - Pointer into D_FHI table 


rwo 
Oo 
ov 
—o 
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zee 
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—" 
z= 
A 
v0 
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input in RO/R1 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge 


: ecial DLOG10 routine 
biased exponent 
ene if <= 
Note: ERROR routine os gage Bh on user 
PC bei ng on top of s 
n 


MTHS$DLOG10 + 
58 50 OO7F or erty 


#*X7F, RO, RB 
ERR 


Bete Se Se Ge Se Be Be Se Be 


meres e call to mTnSDLOG” R8 is 
not used 
OD 10 BSBB DLOG_COMMON_R8 call common DLOG/DLOG10 routine 
50 AF AF ee MULD D_0LOG10_E, RO no/nt 8 DLOG10(e) * DLOG(X) 
return 


MTHSDLOG_RB:: 
Bicw3 eex7F , RO, R8 


BLEQ 
DLOG_COMMON RB: 
SUBO © #*X4000, RB 
BLEQ NEG_EXP 


s ecial LOG oe 
R Biased exponen 
DLOG(X) is not lined for x=<0 


R8 = Unbiased exponent 
Branch to processing for n=<0 


i at at at ot ot ot ot nna 


58 50 OO7F 8F 
5A 


58 4000 8F 
56 


Exponent is positive. N=n- 1 and F = 2f 


58 0080 8F A et #*x80, RB ; RB =N= * - 1 
50 58 A SUB 8, R ; RO/R1 = F = 2f 
53 3 9A ROVzBL RO, R 3; R3 = sees into MTH$$AB_ALOG table 
53 00000000'GF4 90 G*MTHSSAB_ALOGCR3], R3 ; R3 = offset into D_FHI fables 
| eb BLS LN_1_PLUS : Brenc h to special brocessing 
$ or F close to 


: Compute Z, Z2**2, P(Z**2) and 2*P(Z**2) 


CVTWD = RB,’ ; Push N onto the stack 
MOVAQ ATASSAS. £ -FHICR3], R8 ; RB = Address of FHI 


SOOOOOOOCOOOCOOOOOSCOOCOOOCOC OOO COSC SCO COSCO OCOCCOOCOOOOCOOCOOOOCOOOOOOoOOo 
AWWNAN AANA NAWAAIAI AIA ANI ANI IAAI AAAI AINA AAAI AANA AAI NAIA AIA AANA. AAI AAI OO? 
AAAANINAIWIAIPODIPINIPYNININPINIDS 2 2 KF DOO OOCOCOCOCOOOVOVOVOOCOOVOOOVOOOOOOOOCOOO a 
NNN NNN B SIPIPININININIOD DW OWI MOOOOO PLL LLL LPL PPP PPP PEEL EEE OF 
©C969.09 09 09090909 00 I INN IDS DS DDD OS OS DS TTT BB BE EE ENN 
CONAN EAN 3 O OD NAW E WIN OS OD NAME WN OOO NAMU EWN O ODNAUE WI OOOnNOUL wT 1 


PERLE LL ALLL R ELLE LEE ELE 


sa cei cas ME 


dD 8 | 
MTHSDLCG ; Floa Point Natural and Common 16-SEP-1984 01:17:5 AX/VMS Macro V04-00 Page 13 
B08 MTHSDL fos RB = Special DLOG/DLOG1IO 6-SEP-1984 94355538 MTHRTL.SRCIJMTHDLOG.MAR; 1 ° (7 
26 8 7 MOVa (RB)+, RS 3: R4/RS = FHI 
+) | a) SUBD3 RG, Rd, R6 : R6/R? = F = FHI 
0 4 6 ADDD R4, R ; RO/R1 = F + FHI 
6 0 86 DIvD RO, R6 : aayat = 7 = (F = FHI)/(F + FHI) 
50 g 28 8 MULD3 RR. R6, RO 3 RO/R1 = Z**#2 
FF29 CF 2 0 5 POLYD RO, #LOGLEN2-1, LOGTAB2 ; RO/R1 = P(Z**#2) 
e 3 = ® ef 
0 56 64 MULD R6, R RO/R1 = Z2*P(Z**#2) 


; Compute B = N*LN_2_LO + LN_FHI_LO + Z*P(Z#2) 

MULD3 (SP), D LN2L0, R2 ; R2/R3 = N*LN_2_L0 

ADDD  (RB)+, R ; Re/R3 = N*LN72-LO + LN_FHI_LO 
ADDD ~—-R2, _ RO : RO/R1 = B 


: Compute A = N*LN_2_HI + LN_FHI_HI and DLOG(X) 


ued ie 
50 60 


52 FFAS CF 8E 65 MULD3) (SP)+, D_LN_2_HI, R2 ; R2/R3 = N*LN 2H] 
52 68) 60 ADDD (RB), R2 ; R2/R3 = A = NeCN 2_HI + LN_FHI_HI 
50 52 60 ADDD = R2,, RO ; RO/R1 = A + B = BLOG(x) 
05 RSB 
LN_1_PLUS: 


BRB LN_1_PLUS_W 
ERR:  BRW ERROR 


: Exponent is negative. N =n and F = f 


09 09 09 09 09 09 C8 SI ISI SIN SSI NSS NNN NP PAA AAA AOU ES EE EE 


@ >Prooono ‘CO: 
MEAN 9 OD NAME WN 9 OD NAME WIN O ODNOA UENO OD NOUS WN S(O OONAOUSWNO0 I 
a >. 


PUPP PVDPV IV IVDVIVIVIV IV IVI SUIVSIULVIULVSIVSIVIVSVSUSVSVSIUS VSS USUI USI USSSA ISIS ££ EE EEE OO 
PELE FAWN NIMIWIWIWIDININININININININININ 2 2 2 PP MP KH “DOOD OCOCOCOCOCOOWOWOOOOOOOUOD O-- 


ANAAAAAAAAA AAA. AAA AINA AIA AIA AINA AAAI AIA AAAI AAAI AI AAAI NIA OOo? 


SOOOOOOOCCOOOCOOCOOCOCOCO COO COOCOCOOCCO OCC OCOSCOOOOCCOOCCOCOCOCOOVOOOOOOOOO 


50 58 A2 NEG_EXP: SUBW R8, RO ; RO/R1 = F = f 
53. 50 9A MOVZBL RO, R3 : R3 = index into MTH$$AB_ALOG table 
53 00000000'GF43 90 MOVB G*“MTHSSAB_ALOGCR3], R3 ; R3 = offset into D_FHI fables 
3c. s«*d19 BLSS LN_1_PLUS_W ; Branch to special processing 
; or F close to 1 
: Compute Z, Z**2, P(Z**2) and Z2*P(Z**2) 
7 28 6D CVTWD 8 RB, -(SP) ; Push N onto the stack 
58 C70 CF4 7E MOVAQ MTHS$S$AB_D_FHICR3], R8 ; RB = Address of FHI 
54 68 7D MOVaQ (R RG 3 R4/RS = FHI 
56 5054 s«G3 SUBD3 = R4, RO, RO > RO/R7 = F = FHI 
50 4 60 ADDD R4, RO ; RO/R1 = F + FHI 
56 0 6 DIVO RO, R6 3 R6/R7 = 2 = (F = FHID/(F + FHI) 
50 56 6 6 MULD3 R6, R6, RO 3; RO/R1 = Z**2 
FEDS CF 05 50. 75 POLYD 0. #LOGLEN-1, LOGTAB2 ; RO/R1 = P(Z*#2) 
0 56 64 MULD R6, R 3; RO/R1 = Z*P(Z**#2) 
; Compute B = N*LN_2_L0 + LN_FHI_LO + Z*P(Z*2) 
52 FFO8 gf 33 65 MULD3 (SP), D LN.2_L0, R2 : Rg RS = N*LN_2_L0 
2 78 60 ADDD (RBS, R : RO/R3 = N®LN727LO + LN_FHI_LO 


i 8 
MTHSDLOG Floating Point Natural and Commo 16-SEP-1984 01:17 AX/VMS Macro V04-00 Page 
008 ath SOL bap OG1I0_RB = Special DLOG/DLOG10 at a 1 :22: 38 EMTHRIL. SRE IMTMDLOG MAR: 1 ° 
50 52 60 B4 4 ADDD R2, RO ; RO/R1 = 86 
ae 
t! 2 i Compute A = N*LN_2_HI * LN_FHI_HI and DLOG(X) 
52s FEFG CF 65 0387 551 ° MULD3 (SP)+, D.LN_2_HI, R2 = ;-_-R2/R3 = N*LN 2_HI 
52 rs o¢ BD 26 SUBD = (RB), R2 ~~ 3 RO/R3 = A = Ne(N_2,HI + LN_FHI_HI 
52. 6 9 5 ADDD =e R22, -RO + RO/R1 = A +B = BLOG(X) 
05 54 RSB 
4 55 
4 2$ $ 
: f 3 Special logic for F close to 1 
4 59 
03C4 60 LN_1_PLUS WwW: 
56 50 6—(08 3 03C4 61 50803 #SD_1, RO, R6 ; R6/R7 = W =F = 1 
FE62 CF 42009 5675038 26¢ POLYD 6, #LOGLEN1=1,LOGTAB1 : RO/R1 = Q(w) 
50 56 64 8 E 56 MULD R6, RO ; RO/R1 = WeQ(W) 
54 58 6D 1 564 CVTWD = RB, RS ; R4/RS = N 
52 FEDF CF 54 65 0304 565 MULD3 R4, D_LN_2_L0, R2 ; R2/R3 = N*LN_2_L0 
50 52 60 O3DA 566 ADDD = R2,, RO ; RO/R1 = N*LN_2_LO + WeQ(wW) 
50 56 60 O3DD 567 ADDD 6, RO : RO/R1 = N®*LN72-LO + LN(F) 
54 FECC CF 64 03€0 568 MULD D_LN 2_HI, R4 ; R4/RS = N*LN 2 HI 
50 54 60 O3€5 569 ADDD RZ, RO : RO/R1 = DLOGTXY 
05 O3€8 570 RSB 
O3—E9 571 
03E9 276 : 
8 4 er? 3; X =< 0.0, signal error 
6E DD O3€9 575 ERROR: PUSHL (SP) ; return PC from JSB routine 
7E OO°SF 9A O3EB 576 ae z6L #MTHSK_LOGZERNEG, -(SP) ; condition value 
50 01 OF 79 O3EF 577 #15, #T, RO 3 RO = result reserved operand -0.0 
0 578 3 pres © signal mechanism vector 
0 579 s CHFSL OMcH RO/R1) so error handler 
0 580 3 can modify the result. 
00000000'GF 02 FB O 581 CALLS #2, G*MTHS$SIGNAL : signal error and use real user's PC 
O3FA 286 $ _ anoenarn of CALL vs JSB 
O3FA 28 RSB : rn - RO restored B. 
03FB8 84 : CHESL _MCH_RO/R1 
O3FB 585 
O3FB 586 
03FB ff 
O3FB 588 


LOGTAB 0 


F 8 
MTHSOLOG ; Floating Point Natural and Common 16-SEP=1 138% O12 5:38 ne 
Symbol table 6-SEP-1984 11:22:1 
ACMASK = QOO041FC 
DLOG, COMMON_R 18 R 1 
D_DLOGI0_E COR 1 
D-INV_LN2Z_CONS C8 R 1 
D_LN_2_HI 0 BO R 1 
D_LN_2_L0 O60 8 8 1 
i. ere 
nus SBE § 
LN_1 PLUS_W 00 C4 R 01 
LEN = Q000000A 
LOGLEN = 8 $ 
01 
LOGTAB2 44s 0 01 
LONG = 00000004 
MTHSS$AB_ALOG eeeeeeee =X 00 
MTHSSAB_D FHI 00000000 RG 01 
MTHSSJACKET_HND teeeeere xX (01 
MTHS$S1GNAL eeeereee§ =X 8600 
mT 00000200 RG 01 
MTHSOLOG10 90000 44 RG 01 
MTHSDLOG10_R8 82808 4 RG 01 
MTHSDLOG2 seit 9 RG 01 
MTHSDLOG_R8 00000313 RG 01 
MTHSK_LOGZERNEG eeterere x 00 
NEG_ERP 00000378 R 01 
mi = 00004080 
x = 00000004 
poe woe cowr ee nre enna + 
} ; _Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. ABS. 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 000003FB ( 1019.) O01 ¢ 1.) PIC USR CON REL LCL SHR 
ee 
! Performance indicators ! 
A ancneeneciteintianmmeranainasanaaaina timing 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 90: 00:00.19 90:00:00.63 
pomnend processing 119 00:00:00.6 0:00:05.45 
s 1 104 Be 0:01.66 Se art 
So abol table sort 0: 8: 0.01 0:00:00.01 
Pass 2 11 00:00:01.39 0:00:04.17 
Symbol table output 4 :00: ,. 3 Hf 0.04 
Psect synopsis output : ‘ 338 :00.09 
Cross-reference output 0:00: ¢- 0:00: 2-09 
Assembler run totals 37 0:00:03.8 0:00:14.6 


the working set Limit was 1050 pages. 
9323 bytes (19 pages) of virtual memory were used to buffe 
There were 10 pages of symbol table space allocated to hol 


r the intermediate code. 
d 28 non-local and 0 local symbols. 


MTHRT 


EXE RD NOWRT NOVEC LONG 


v04-00 
SATHDLOG. MAR; 1 


| G6 8 
He ; Floating Point Natural and Common “SEP-1 


BSep= 198s 11:28:78 


648 source Lines were read in Pass 1, producing 18 object records in Pass 2. 


Macro Run Statistics 


1 page of virtual memory was used to "define 1 macro. 


Pewmwotmeee occa wm ence co ewra neem a + 


! Macro Library statistics ! 


¢weer een wm nm ewer er eoenmeecee seeeces 


Macro Library name Macros defined 
-$255$0UA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


v04-00 Page 1g | 
STH HDLOG.MAR;1 (7) 


MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHDLOG/OBJ=OBJ$:MTHDLOG MSRC$:MTHJACKET/UPDATE=(ENHS:MTHJACKET) +MSRCS: 
| 
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